home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / cuser125.zip / CUSHOW.MEX < prev    next >
Text File  |  1997-07-12  |  5KB  |  223 lines
  1. //////////////////////////////////////////////////////////////////////////////
  2. //                                                                          //
  3. // CoolUser V1.25 (C)1996-1997 Neil Staib - Displays Screen                 //
  4. //                                                                          //
  5. // MEX: Copywrite 1990, 1995 by Lanius Corporation. All Rights reserved.    //
  6. //                                                                          //
  7. //////////////////////////////////////////////////////////////////////////////
  8. #include <max.mh>                                                                                                                                                        include <max.mh>                                                           //
  9. #include <intpad.mh>
  10. #define INCL_global
  11. #define INCL_cooluser
  12. #include <language.mh>
  13. #include <cooluser.mh>
  14.  
  15. void display(int: opt, string: pick, string: text, string: option, int: no, char: dd, string: enter);
  16.  
  17. void main()
  18. {
  19.  
  20.   char: inkey, nonstop;
  21.   string: name, datedob, instr, temp_day1, temp_month1;
  22.   int: nameint, nameco, done, this_year, len, temp_day, temp_month, temp_year, opt, ck1;
  23.   struct _stamp:now;
  24.  
  25.   init_lang_cooluser();
  26.  
  27.   ck1:=checkfile("cucheck.1");
  28.  
  29.   if (ck1 = 0)
  30.   {
  31.     remove(str_st_dir_txt + "cucheck.1");
  32.   }
  33.  
  34. start:
  35.  
  36.   print(AVATAR_CLS,"              ", str_st_title, "CoolUser v",  str_st_version, str_st_ver, str_st_title, " Copyright ", str_st_version, "1996-97", str_st_title, " Neil Staib\n", COL_GRAY);
  37.   print(           "              ", str_st_title_line , padleft("", 43, '─'), "\n\n", COL_GRAY);
  38.  
  39.   #ifdef handle_opt
  40.     opt:=1;
  41.   #else
  42.     opt:=0;
  43.   #endif
  44.   display(opt, "H", str_st_handle, usr.alias, 35, ' ', "\n");
  45.  
  46.   #ifdef location_opt
  47.     opt:=1;
  48.   #else
  49.     opt:=0;
  50.   #endif
  51.   display(opt, "I", str_st_location, usr.city, 20, ' ',"\n");
  52.  
  53.   #ifdef voice_opt
  54.     opt:=1;
  55.   #else
  56.     opt:=0;
  57.   #endif
  58.   display(opt, "V", str_st_voice, usr.phone, 15, ' ',"\n");
  59.  
  60.   #ifdef data_opt
  61.      opt:=1;
  62.   #else
  63.      opt:=0;
  64.   #endif
  65.   display(opt, "D", str_st_data, usr.dataphone, 15, ' ',"\n");
  66.  
  67.   #ifdef birth_opt
  68.      opt:=1;
  69.   #else
  70.      opt:=0;
  71.   #endif
  72.   display(opt, "B", str_st_birth, formatdob(usr.dob), 10, ' ',"\n");
  73.  
  74.   #ifdef gender_opt
  75.     opt:=1;
  76.   #else
  77.     opt:=0;
  78.   #endif
  79.   display(opt, "X", str_st_gender, UserSex(usr.sex), 12, ' ',"\n");
  80.  
  81.   #ifdef password_opt
  82.    opt:=1;
  83.   #else
  84.    opt:=0;
  85.   #endif
  86.   display(opt, "P", str_st_password, "", 15, '*', "\n");
  87.  
  88.   #ifdef language_opt
  89.     opt:=1;
  90.   #else
  91.     opt:=0;
  92.   #endif
  93.   display(opt, "L", str_st_language, language_num_to_name(usr.lang), 20, ' ',"\n");
  94.  
  95.   #ifdef password_opt
  96.     opt:=1;
  97.   #else
  98.     opt:=0;
  99.   #endif
  100.   display(opt, "Z", str_st_protocol, protocol_num_to_name(usr.def_proto), 10, ' ',"\n");
  101.  
  102.   #ifdef help_opt
  103.    opt:=1;
  104.   #else
  105.    opt:=0;
  106.   #endif
  107.   display(opt, "F", str_st_help, HelpLevel(usr.help), 8, ' ',"\n");
  108.  
  109.   #ifdef qwk_opt
  110.     opt:=1;
  111.   #else
  112.     opt:=0;
  113.   #endif
  114.   display(opt, "A", str_st_qwk, compressor_num_to_name(usr.compress), 5, ' ',"\n");
  115.  
  116.   #ifdef msg_editor_opt
  117.     opt:=1;
  118.   #else
  119.     opt:=0;
  120.   #endif
  121.   display(opt, "E", str_st_msg_editor, Boolo(usr.bored), 4, ' ',"");
  122.  
  123.   #ifdef msg_viewer_opt
  124.     opt:=1;
  125.   #else
  126.     opt:=0;
  127.   #endif
  128.   display(opt, "W", str_st_msg_viewer, Bool(usr.fsr), 4, ' ', "\n");
  129.  
  130.   #ifdef scn_width_opt
  131.    opt:=1;
  132.   #else
  133.    opt:=0;
  134.   #endif
  135.   display(opt, "S", str_st_scn_width, intpad(usr.width, 4) , 4, ' ', "");
  136.  
  137.   #ifdef scn_length_opt
  138.     opt:=1;
  139.   #else
  140.     opt:=0;
  141.   #endif
  142.   display(opt, "G", str_st_scn_length, intpad(usr.len, 4) , 4, ' ', "\n");
  143.  
  144.   display(0, "C", str_st_clear, Bool(usr.cls), 4, ' ', "");
  145.  
  146.   #ifdef more_opt
  147.     opt:=1;
  148.   #else
  149.     opt:=0;
  150.   #endif
  151.   display(opt, "M", str_st_more, Bool(usr.more), 4, ' ', "\n");
  152.  
  153.  #ifdef quiet_opt
  154.    opt:=1;
  155.  #else
  156.    opt:=0;
  157.  #endif
  158.  display(opt, "Q", str_st_quiet, Bool(usr.notavail), 4, ' ', "");
  159.  
  160.  #ifdef hot_opt
  161.     opt:=1;
  162.  #else
  163.     opt:=0;
  164.  #endif
  165.  display(opt, "K", str_st_hot, Bool(usr.hotkeys), 4, ' ', "\n");
  166.  
  167.  #ifdef ansi_opt
  168.    opt:=1;
  169.  #else
  170.    opt:=0;
  171.  #endif
  172.  display(opt, "N", str_st_ansi, Boolansi(usr.video), 4, ' ', "");
  173.  
  174.  #ifdef avatar_opt
  175.    opt:=1;
  176.  #else
  177.    opt:=0;
  178.  #endif
  179.  display(opt, "T", str_st_avatar, Boolavatar(usr.video), 4, ' ', "\n");
  180.  
  181.  #ifdef hidden_opt
  182.    opt:=1;
  183.  #else
  184.    opt:=0;
  185.  #endif
  186.  display(opt, "U", str_st_hidden, Bool(usr.noulist), 4, ' ', "");
  187.  
  188.  #ifdef rip_opt
  189.    opt:=1;
  190.  #else
  191.    opt:=0;
  192.  #endif
  193.   display(opt, "R", str_st_rip, Bool(usr.rip), 4, ' ', "\n");
  194. }
  195.  
  196. void display(int: opt, string: pick, string: text, string: option, int: no, char: dd, string: enter)
  197. {
  198.  
  199.   string: cu_colour;
  200.  
  201.     if (opt = 1)
  202.       {
  203.        cu_colour := str_st_active_keys;
  204.       }
  205.     else
  206.       {
  207.         if (usr.video = 0)
  208.           {
  209.             pick := " ";
  210.           }
  211.         else
  212.           {
  213.            cu_colour := str_st_disable_keys;
  214.           }
  215.       }
  216.  
  217.     print(str_st_key_brackets," (", cu_colour, pick, str_st_key_brackets, ") ", str_st_text,
  218.     text, str_st_key_brackets, padleft("", ( 25 - strlen(text)), '.'),
  219.     " : ", str_st_data_fields, padleft(option, no, dd), enter);
  220. }
  221.  
  222.  
  223.